Importation des taux de change du site Web du NBU vers LibreOffice Calc

NBU_RATE() descriptif

Une fonction toute prête pour ceux qui doivent souvent utiliser les taux de change NBU dans LibreOffice Calc .

Aide à obtenir automatiquement la valeur du taux de change de Site Web du Nouveau-Brunswick par son code et sa date.

StarBASIC code pour la fonction NBU_RATE

Pour ajouter une fonctionnalité taux de change d'importation de la NBU , ouvrez le menu Tools - Macros - Edit Macros... , sélectionner Module1 et copiez le texte suivant dans ce module :

Function NBU_RATE(ByVal pCurrency, ByVal pDate)
  'moonexcel.com.ua 
  Dim FCalc As Object
  
  If Len(pCurrency) = 0 Or Len(pDate) = 0 Then Exit Function             
      
  FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess")
  
  tDate = FCalc.callFunction("TEXT", Array(pDate,"YYYYMMDD"))
                                                    
  RequestString = "https://bank.gov.ua/NBU_Exchange/exchange_site?start=" & tDate & "&end=" & tDate & "&valcode=" & pCurrency
            
  WebServiceResponse = FCalc.callFunction("WEBSERVICE", Array(RequestString))  
  
  NBU_RATE = FCalc.callFunction("FILTERXML", Array(WebServiceResponse,"//rate_per_unit"))    
End Function

Ferme le Macro Editor et revenir à LibreOffice Calc .

Vous pouvez maintenant entrer manuellement notre fonction NBU_RATE() . La syntaxe de cette fonction est la suivante :

=NBU_RATE ( code de devise ; date )

Nous aurons le résultat suivant :

Utiliser l'extension

Vous pouvez également utiliser la fonction NBUA() en installant l'extension gratuite YouLibreCalc.oxt ou sa version complète YLC_Utilities.oxt .

Après cela, cette fonction sera disponible dans tous les fichiers qui seront ouverts dans LibreOffice Calc.